home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / datamaker a (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  731b  |  18 lines
  1. 10 poke53281,0:poke646,1
  2. 62999 rem 64 datamaker ascii - pankhurst
  3. 63000 input"[147]memory start, end, and 1st line number";as,ae,ls:x=63020
  4. 63010 x$="re[211]:f[207]i=0to-1st[197]-1:r[197]x$:i=v[193](x$)=-1:n[197]:x="+str$(as)+":d[193]-1":goto63090
  5. 63020 y$=chr$(34):x$="r[197]x$:ifx$="+y$+"/e"+y$+"t[200]re[212]":x=63030:goto63090
  6. 63030 x$="f[207]i=1tolen(x$)st[197]2:p[207]x,a[211](m[201](x$,i,1))*16+a[211](m[201](x$,i+1,1))-1105"
  7. 63040 x=63050:goto63090
  8. 63050 x$="x=x+1:next:g[207]"+str$(ls-20):x=63060:goto63090
  9. 63060 fori=0to13:x=peek(as):y=int(x/16)
  10. 63070 x$=x$+chr$(y+65)+chr$(x-y*16+65):as=as+1:i=i-(as>ae)*99:next:x$="d[193] "+x$
  11. 63080 x=63110
  12. 63090 print"[147]"ls;x$:print"as="as":ae="ae":ls="ls+10":g[207]"x"";:poke631,13
  13. 63100 poke632,13:poke198,2:end
  14. 63110 ifas<=aethen63060
  15. 63120 x$="d[193] /e":x=63130:goto63090
  16. 63130 x=63000:input"ready to delete";x$
  17. 63140 print"[147]"x:print"x="x+10":g[207]63140";:poke631,13:poke632,13:poke198,2
  18.